home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / biz / swood / FW_AllInOne.lha / Makros / Fenster < prev    next >
Text File  |  1998-01-18  |  5KB  |  187 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. Parse ARG FW
  4. if ~show('L',"rexxreqtools.library") then
  5. if ~addlib('rexxreqtools.library',0,-30,0) then;do
  6. 'ShowMessage 1 1 "Fehler...." "Benötige Libs:rexxreqtools.library" " A B B R U C H ! !" "Okay" "" ""'
  7. exit
  8. end
  9. IF ~show('L','tritonrexx.library') then
  10. IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN;DO
  11. 'ShowMessage 2 1 "Fehler...." "Benötige Libs:tritonrexx.library" "" "Abbruch" "" ""'
  12. exit
  13. END
  14. R='0A'X
  15. If FW='' then;do
  16. address='FinalW'
  17. Options results
  18. STATUS PORTNAME
  19. FW=result
  20. End
  21. address(FW)
  22. SIGNAL ON SYNTAX
  23. If open('Hilfe',"S:FW_Paket.prefs","R") then;do
  24. HilfeVerz=readln('Hilfe')
  25. Close('Hilfe')
  26. End
  27. else HilfeVerz=''
  28. mxlist.0=4
  29. mxlist.1='Normal'
  30. mxlist.2='Nebeneinander'
  31. mxlist.3='Untereinander'
  32. mxlist.4='Überlappend'
  33. apptags='TRCA_Name     Fenster',
  34. 'TRCA_LongName "Fenster"',
  35. 'TRCA_Info     "Makro für Finalwriter"',
  36. 'TRCA_Version  "1.1 registered"',
  37. 'TRCA_Release  "1"',
  38. 'TRCA_Date     "09.01.98"',
  39. 'TAG_END'
  40. windowtags=WindowID(1),
  41. WindowPosition('TRWP_CENTERDISPLAY'),
  42. WindowFlags('TRWF_NOSIZEGADGET|TRWF_NOMINTEXTWIDTH'),
  43. PubScreenName('FinalWriterPubScreen'),
  44. WindowTitle('Fenster'),
  45. BeginMenu('Projekt'),
  46. MenuItem('Q_Verlassen...',104),
  47. BeginMenu('?'),
  48. MenuItem('?_Info',101),
  49. MenuItem('H_Hilfe',103),
  50. 'HorizGroupAC',
  51. 'SpaceS',
  52. 'VertGroupAC',
  53. 'SpaceS',
  54. NamedFrameBox('An_ordnung') 'TRAT_ID 1',
  55. 'HorizGroupAC SpaceS VertGroupA Space',
  56. MXGadget('mxlist',0,1) 'TRAT_Flags TRCY_RIGHTLABELS',
  57. 'SpaceS EndGroup SpaceS EndGroup',
  58. 'Space',
  59. 'HorizGroupEC',
  60. Button('_Anwenden',2),
  61. 'SpaceS',
  62. Button('Ab_bruch',3),
  63. 'EndGroup',
  64. 'SpaceS',
  65. 'EndGroup',
  66. 'SpaceS',
  67. 'EndGroup',
  68. 'EndProject'
  69. app=TR_CREATEAPP('TRCA_Name Vorschau')
  70. comp=1
  71. IF app ~='00000000'x THEN;DO
  72. window1=TR_OPENPROJECT(app,windowtags)
  73. IF window1 ~='00000000'x THEN;DO
  74. ende=0
  75. DO WHILE ende ~=1
  76. CALL TR_WAIT(app,'')
  77. DO WHILE TR_HANDLEMSG(app,'event')
  78. IF event.trm_class='TRMS_NEWVALUE' THEN;DO
  79. SELECT
  80. WHEN event.trm_id=1 THEN;Do
  81. comp=event.trm_data+1
  82. END
  83. OTHERWISE
  84. NOP
  85. END
  86. END
  87. IF event.trm_class='TRMS_ACTION' THEN;DO
  88. SELECT
  89. WHEN event.trm_id=2 THEN Call Start
  90. WHEN event.trm_id=3 THEN ende=1
  91. WHEN event.trm_id=101 THEN Call rtezrequest("Aus dem Makro-Paket:"||R||R||"Fenster V1.1 für FW"||R||"© 1998 Heiko Schröder","Danke für Ihre Registrierung.","Info","rt_pubscrname=FinalWriterPubScreen")
  92. WHEN event.trm_id=103 THEN address command "run Multiview PUBSCREEN=FinalWriterPubScreen "||d2c(34)||HilfeVerz||"Fenster.guide"||d2c(34)
  93. WHEN event.trm_id=104 THEN ende=1
  94. OTHERWISE NOP
  95. END
  96. END
  97. IF event.trm_class='TRMS_CLOSEWINDOW' THEN;DO
  98. ende=1
  99. END
  100. END
  101. END
  102. CALL TR_CLOSEPROJECT(window1)
  103. END
  104. CALL TR_DELETEAPP(app)
  105. END
  106. ELSE
  107. CALL quit('Kann das Fenster nicht öffnen',10)
  108. Exit
  109. Start:
  110. RedrawOff
  111. Status Window
  112. Parse Var result . . . . MWeite MHoehe SWeite SHoehe
  113. SHoehe=SHoehe-10
  114. portok=upper(Show('P'))
  115. x=0
  116. i=0
  117. DO until x=0
  118. x=pos("FINALW.",portok,x+1)
  119. if x=0 then leave
  120. i=i+1
  121. y=pos(" ",portok,x)
  122. fwport.0=i
  123. fwport.i=Substr(portok,x,y-x)
  124. END
  125. Select
  126. When comp=1 then;do
  127. Weite=SWeite;Hoehe=SHoehe
  128. do a=1 to i
  129. address(fwport.a)
  130. ChangeWindow 0 10 Weite Hoehe-10
  131. end
  132. end
  133. When comp=2 then;do
  134. Weite=SWeite%i;Hoehe=SHoehe
  135. If MWeite>Weite then
  136. ret=rtezrequest("Zuviele Dokumente..."R"Sie passen nicht nebeneinander.","_Achso","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  137. do a=1 to i
  138. address(fwport.a)
  139. ChangeWindow Weite*(a-1) 10 Weite Hoehe-10
  140. end
  141. end
  142. When comp=3 then;do
  143. Weite=SWeite;Hoehe=SHoehe%i
  144. If MHoehe>Hoehe then
  145. ret=rtezrequest("Zuviele Dokumente..."R"Sie passen nicht untereinander.","_Achso","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  146. do a=1 to i
  147. address(fwport.a)
  148. ChangeWindow 0 10+Hoehe*(a-1) Weite Hoehe-1
  149. end
  150. end
  151. When comp=4 then;do
  152. Weite=SWeite%2;Hoehe=MHoehe
  153. If MHoehe>Hoehe then
  154. ret=rtezrequest("Zuviele Dokumente..."R"Sie passen nicht untereinander.","_Achso","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  155. do a=1 to i
  156. address(fwport.a)
  157. ChangeWindow 25*(a-1) 10+12*(a-1) Weite Hoehe
  158. WinToFront
  159. end
  160. wind=TR_ObtainWindow(window1)
  161. ProjectToFront(window1)
  162. TR_ReleaseWindow(window1)
  163. end
  164. otherwise nop
  165. End
  166. RedrawOn
  167. Redraw
  168. Return
  169. SYNTAX:
  170. CALL quit('Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||R||SOURCELINE(sigl)||R||'Bitte informieren Sie den Autor...',20)
  171. quit:
  172. PARSE ARG message,rcode
  173. IF app ~='00000000'x THEN;DO
  174. IF message ~='' THEN
  175. ret=rtezrequest(message,"_Okay","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  176. CALL TR_DELETEAPP(app)
  177. END
  178. ELSE;DO
  179. IF message ~='' THEN;DO
  180. SAY message
  181. SAY
  182. OPTIONS PROMPT 'Bitte <RETURN> drücken'
  183. PULL taste
  184. END
  185. END
  186. address command "flushtrx all"
  187. EXIT(rcode)